10 REM  ******************************
11 REM  *                            *
12 REM  * COMMERCIAL TOWN   FUER C64 *
13 REM  *                            *
14 REM  * VON : PETER FINK           *
15 REM  *       8500 NUERNBERG 30    *
16 REM  *       STEPHANSTRASSE 20    *
17 REM  *       TEL.: 0911/467930    *
18 REM  *                            *
19 REM  ******************************
99 PRINT"[147]";
100 DIMSN$(41)
150 POKE53281,0:POKE53280,0
200 SN$(0)=""
205 SN$(1)="     C O M M E R C I A L   T O W N"
210 SN$(2)="     [196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
215 SN$(3)=""
220 SN$(4)="        PETER FINK, FEBRUAR 1985"
225 SN$(5)=""
230 SN$(6)="DIESES SPIEL LAEUFT NACH DEN ORIGINALEN"
235 SN$(7)="MONOPOLY-REGELN. ES KOENNEN 1 - 4 SPIE-"
240 SN$(8)="LER TEILNEHMEN. DIE AUF 4 SPIELER FEH-"
245 SN$(9)="LENEDN WERDEN VOM COMPUTER SIMULIERT."
250 SN$(10)="BEI DER EINGABE VON STRASSENNAMEN BRAU-"
255 SN$(11)="CHEN NUR DIE ERSTEN DREI BUCHSTABEN"
260 SN$(12)="EINGEGEBEN ZU WERDEN."
265 SN$(13)="               AUSNAHMEN:"
270 SN$(14)="SCHILLERSTRASSE UND SCHLOSSALLEE: 4"
275 SN$(15)="HAUPTBAHNHOF UND HAUPTSTRASSE:    6"
280 SN$(16)=""
285 SN$(17)="1 HOTEL ENTSPRICHT 5 HAEUSERN, DAS"
290 SN$(18)="HEISST AUCH BEIM KAUF UND VERKAUF VON"
295 SN$(19)="HAEUSERN MUESSEN HOTELS ALS 5 HAEUSER"
300 SN$(20)="EINGEGEBEN WERDEN."
305 SN$(21)=""
310 SN$(22)=""
315 SN$(23)="            WEITER -> [SPACE]"
320 SN$(24)=""
325 SN$(25)="BEI DER ABFRAGE NACH DEN AKTIVITAETEN"
330 SN$(26)="DES SPIELERS VOR DEM WUERFELN KANN FOL-"
335 SN$(27)="GENDE AUSWAHL GETROFFEN WERDEN:"
340 SN$(28)="> H < WENN ER HAEUSER KAUFEN WILL"
345 SN$(29)="> Z < WENN ER EINE HYPOTHEK ZURUECK-"
350 SN$(30)="                           ZAHLEN WILL."
355 SN$(31)="> K < WENN ER EINEM MITSPIELER EIN VER-"
360 SN$(32)="      KAUFS- ODER TAUSCHANGEBOT MACHEN"
362 SN$(34)="> W < WENN ER WUERFELN WILL."
365 SN$(33)="                                  WILL."
370 SN$(35)=""
375 SN$(36)="STEHT IM FELD 'STANDORT': GEFAENGNIS #[146]"
380 SN$(37)="SO HEISST DAS, DASS DER SPIELER NICHT"
385 SN$(38)="NUR ZU BESUCH SONDERN ECHT IM GEFAENG-"
390 SN$(39)="NIS IST."
395 SN$(40)=""
400 SN$(41)="            START -> [SPACE]"
420 FORA=0TO22:PRINT"[129]"SN$(A):NEXT
422 GOSUB25000:PRINTSN$(23)
425 GETA$:IFA$<>" "THEN425
430 PRINT"[147]";:FORA=24TO40:PRINT""SN$(A):NEXT
440 GOSUB25090:PRINTSN$(41)
510 SN$(0)="[150][213][195][195][195][178][195][195][195][195][195][195][195][195][195][195][178][195][195][195][201][149][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
520 SN$(1)="[150][194]***[194]  [158]BESITZ[150]  [194]***[194][149][194]    STANDORT:     [149][194]"
530 SN$(2)="[150][171][195][195][195][203]  [197][197][197][197][197][197][150]  [202][195][195][195][179][149][194]                  [194]"
540 SN$(3)="[150][194]                  [194][149][194]                  [194]"
550 SN$(4)="[150][194]                  [194][149][194]                  [194]"
560 SN$(5)="[150][194]                  [194][149][171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]"
570 SN$(6)="[150][194]                  [194][149][194][159]                  [146][149][194]"
580 SN$(7)="[150][194]                  [194][149][194][159]                  [146][149][194]"
590 SN$(8)="[150][194]                  [194][149][194][159]                  [146][149][194]"
600 SN$(9)="[150][194]                  [194][149][194][159]                  [146][149][194]"
610 SN$(10)="[150][194]                  [194][149][194][159]                  [146][149][194]"
620 SN$(11)="[150][194]                  [194][149][194][159]                  [146][149][194]"
630 SN$(12)="[150][194]                  [194][149][194][159]                  [146][149][194]"
640 SN$(13)="[150][194]                  [194][149][202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
650 SN$(14)="[150][194]                  [194] SPIELER            "
660 SN$(15)="[150][194]                  [194][161]       [146][161] [129][213][195][195][195][195][195][195][195][201] "
670 SN$(16)="[150][194]                  [194][161]       [146][161] [129][194][149] ZEIT: [129][194] "
680 SN$(17)="[150][194]                  [194][188][162][162][162][162][162][162][162][146][190] [129][194]       [194] "
690 SN$(18)="[150][194]                  [194] [158]KAPITAL  [129][202][195][195][195][195][195][195][195][203] "
700 SN$(19)="[150][194]                  [194][156][161]       [146][161]           "
710 SN$(20)="[150][194]                  [194][156][161]       [146][161] [213][195][195][195][195][195][195][195][201] "
720 SN$(21)="[150][194]                  [194][156][188][162][162][162][162][162][162][162][146][190] [194][152]FREI P.[194] "
730 SN$(22)="[150][194]                  [194] [153][209] [209][146]   [209][146]  [194]       [194] "
740 SN$(23)="[150][194]                  [194] [153]   [146]  [209] [146]  [202][195][195][195][195][195][195][195][203] "
750 SN$(24)="[150][202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203] [153][209] [209][146] [209]  [146]           "
775 GETA$:IFA$<>" "THEN775
776 PRINT"[147]";
780 FORA=0TO24:PRINTSN$(A);:NEXT
795 POKE56295,14:POKE2023,102
1000 GOSUB25220
1100 GOSUB10900:GOSUB10800:PRINT"DAUER DES SPIELES":GOSUB10800
1105 PRINT"    (IN MIN.)":GOSUB10800
1110 PRINT"";:B$=""
1111 GETA$:IFA$<>CHR$(20)THEN1114
1112 IFLEN(B$)>0THENPRINT"[157] [157]";:B$=LEFT$(B$,LEN(B$)-1)
1113 GOTO1111
1114 IFA$<>""ANDA$<>CHR$(13)THENIFASC(A$)<48ORASC(A$)>57THEN1111
1115 PRINTA$;:IFA$=CHR$(13)ANDLEN(B$)>0THEN1118
1116 B$=B$+A$:GOTO1111
1118 RU=VAL(B$)
1120 GOSUB10900:GOSUB10800
1125 PRINT"ANZAHL DER SPIELER":GOSUB10800
1130 PRINT"";:B$=""
1131 GETA$:IFA$<>CHR$(20)ANDA$<>CHR$(13)ANDA$<>""THENPRINTA$"[157]";:B$=A$
1132 IFA$=CHR$(13)ANDLEN(B$)=1THEN1134
1133 GOTO1131
1134 IFASC(B$)<48ORASC(B$)>52THEN1120
1135 AN=VAL(B$)
1140 GOSUB10900:IFAN=0THEN1180
1145 FORA=1TOAN
1150 PRINT""SR$SU$"[159]  NAME SPIELER "A
1155 PRINTSR$"[145](BIS ZU 7 BUCHST.)
1156 [153]""SU$SR$"ANM.: VERSCHIEDENECMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";
1157 [153]"ANFANGSBUCHSTABENCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";
1158 [153]"WAEREN VON VORTEIL"
1160 [153]SR$"";:B$[178]""
1161 [161]A$:[139]A$[179][177][199](20)[167]1164
1162 [139][195](B$)[177]0[167][153]"CMD CMD";:B$[178][200](B$,[195](B$)[171]1)
1163 [137]1161
1164 [139][195](B$)[177][178]7[167]1168
1165 [139]A$[178][199](13)[167]1167
1166 [153]A$;:B$[178]B$[170]A$:[137]1161
1167 [139][195](B$)[178]0[167]1161
1168 SP$(A)[178]B$:[141]10900
1170 [130]A
1175 [139]AN[178]4[167]1200
1180 B[178]1:[129]A[178]AN[170]1[164]4
1185 SP$(A)[178]NA$(B):B[178]B[170]1
1190 [130]A
1195 SP$(5)[178]"BANK"
1200 [129]A[178]1[164]40:SB(A)[178]0:[130]
1205 [129]A[178]1[164]4:PO(A)[178]1:[130]
1210 BB$(0)[178]" ":BB$(1)[178]"1":BB$(2)[178]"2":BB$(3)[178]"3":BB$(4)[178]"4":BB$(5)[178]"ATN"
1215 [129]A[178]1[164]4:S$(A)[178][200](SP$(A),1):[130]
1220 FP[178]0:EZ[178]1:GZ[178]1
2995 TI$[178]"000000":[141]20000
3000 [129]Z[178]1[164]4:LL[178]0:P[178]0:WP$[178]"":[139]PO(Z)[178]0[167]3995
3010 [141]7000
3015 [141]6000
3020 [141]10000
3025 [141]5000
3030 [141]8000
3035 [139]PG(Z)[178]1[167]21000
3040 [139]Z[177]AN[167][141]13000:[137]3100
3042 [141]10900
3045 [153]""SR$SU$"OPEN * AKTIVITAETEN *"
3050 [153]""SR$SU$"HAUS KAUFEN   -> H"
3051 [153]""SR$SU$"HYP. Z'ZAHLEN -> Z"
3052 [153]""SR$SU$"ANGEB. MITSP. -> K"
3053 [153]""SR$SU$"WUERFELN      -> W"
3054 TM$[178]TI$
3055 [161]A$:[139]A$[178]""[167]3055
3057 TI$[178]TM$
3060 [139]A$[178]"H"[167][141]10900:[141]12000:[137]3042
3065 [139]A$[178]"Z"[167][141]10900:[141]11000:[137]3042
3070 [139]A$[178]"K"[167][141]10900:[141]16000:[137]3042
3075 [139]A$[179][177]"W"[167]3045
3100 [141]22000
3105 [141]9000
3110 [141]5000
3200 [139]LO[178]1[175]PO(Z)[179][177]1[167]I[178]4000:[137]3210
3205 [139]LO[178]1[175]PO(Z)[178]1[167]I[178]8000:[137]3210
3206 [137]3220
3210 [141]10900:[141]10800:[153]""SP$(Z)" BEKOMMT"
3215 [141]10800:[153]""I"DM."
3216 GE(Z)[178]GE(Z)[170]I
3218 LO[178]0:[129]A[178]1[164]1500:[130]
3220 [139]PO(Z)[178]5[176]PO(Z)[178]39[167][141]20500
3225 [139]PO(Z)[178]8[176]PO(Z)[178]23[176]PO(Z)[178]37[167]23000
3230 [139]PO(Z)[178]3[176]PO(Z)[178]18[176]PO(Z)[178]34[167]23100
3235 [139]Z2[178]1[167]Z2[178]0:[137]3995
3240 [139]PO(Z)[178]11[167][141]10900:[137]3285
3245 [139]PO(Z)[178]21[167][141]10900:[141]10800:[153]""SP$(Z)" BEKOMMT"
3250 [139]PO(Z)[178]21[167][141]10800:[153]""FP"DM."
3255 [139]PO(Z)[178]21[167]GE(Z)[178]GE(Z)[170]FP:FP[178]0
3260 [139]PO(Z)[178]31[167]PG(Z)[178]1:WU[178]20:[137]3105
3265 [139]FA(PO(Z))[178]10[167][141]24000
3270 [139]FA(PO(Z))[178]9[167][141]24200
3275 [139]FA(PO(Z))[177]0[175]FA(PO(Z))[179]9[167][141]24400
3280 [139]Z2[178]1[167]Z2[178]0:[137]3995
3285 [141]7000:[141]20000
3287 [129]A[178]1[164]1000:[130]
3290 [139]WP$[178]"PASCH"[175]PG(Z)[178]0[167]3400
3295 [137]3990
3400 [139]Z[179][178]AN[167]3100
3410 [141]10900:[141]10800:[153]"PASCH: NOCHMAL!":[129]A[178]1[164]1500:[130]:[137]3100
3990 [129]A[178]1[164]1000:[130]
3992 [141]10900
3995 [130]Z:[139]TT[177]RU[167]27100
3996 [137]3000
5000 [153]"WAIT"[200](RE$,22);"PRINT                 CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";
5005 [153]"                 "
5010 [153]""[200](RE$,22);"PRINT";SN$(PO(Z))" "BB$(SB(PO(Z)))"WAIT";
5015 [139]PG(Z)[178]1[167][153]"CMD#"
5020 [139]FA(PO(Z))[177]0[167][153]""[200](RE$,22)"DEFBESITZER: "SP$(BE(PO(Z)))
5025 [129]A[178]1[164]100:[130]
5030 [153]"WAIT"[200](RE$,22);"PRINT                 CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";
5035 [153]""[200](RE$,22);"PRINT";SN$(PO(Z))" "BB$(SB(PO(Z)));
5040 [139]PG(Z)[178]1[167][153]"CMD#WAIT"
5050 [142]
6000 [153]""[200](RE$,21);[200](UN$,16);"       WAIT"
6010 [153]""[200](RE$,21);[200](UN$,16);""SP$(Z)"WAIT"
6015 [142]
7000 GE(Z)[178][181](GE(Z)[173]10)[172]10:G$[178][201]([196](GE(Z)),[195]([196](GE(Z)))[171]1)
7005 [153]"CLR"[200](RE$,21);[200](UN$,20);"       WAIT"
7010 [153]"CLR"[200](RE$,21);[200](UN$,20);""G$"WAIT"
7015 [142]
8000 ZL[178]4:J[178]1
8002 [129]B[178]0[164]KO(J)[171]1:I[178]ST(J,B)
8005 [139]BE(I)[179][177]Z[167]8020
8007 [139]ZL[178]22[167][141]8200
8010 [153]""[200](UN$,ZL)""FA$(FA(I))"              WAIT - "BB$(SB(I));
8011 [139]HY(I)[178]1[167][153]"CMDH";
8012 [153]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD"SN$(I):ZL[178]ZL[170]1
8020 [130]B
8025 J[178]J[170]1:[139]J[178]11[167][142]
8030 [137]8002
8200 [139]Z[177]AN[167]8300
8202 [153]""[200](UN$,ZL[170]1)"LISTWEITER MIT <SPACE>"
8204 TM$[178]TI$
8205 [161]A$:[139]A$[178]""[167]8205
8206 TI$[178]TM$
8210 [141]10000:ZL[178]4:[142]
8300 [129]A[178]1[164]2000:[130]:[137]8210
9000 [129]A[178]1[164][182](WU):Q[178]0
9005 [129]I[178]1[164]4:[139]I[178]Z[167]9015
9010 [139]PO(Z)[178]PO(I)[167]Q[178]1:J[178]I
9015 [130]I
9020 [139]Q[178]0[167]9030
9025 [139][198](S$(J))[179]65[167][151]KN(PO(Z))[170]54272,1:[151]KN(PO(Z)),[198](S$(J)):[137]9050
9027 [151]KN(PO(Z))[170]54272,1:[151]KN(PO(Z)),[198](S$(J))[171]64:[137]9050
9030 [151]KN(PO(Z))[170]54272,FB(PO(Z)):[151]KN(PO(Z)),ZE(PO(Z))
9050 PO(Z)[178]PO(Z)[170][180](WU)
9055 [139]PO(Z)[177]40[167]PO(Z)[178]PO(Z)[171]40:[139]LL[178]0[175]PG(Z)[178]0[167]LO[178]1
9060 [139][198](S$(Z))[179]65[167][151]KN(PO(Z))[170]54272,1:[151]KN(PO(Z)),[198](S$(Z)):[137]9070
9065 [151]KN(PO(Z))[170]54272,1:[151]KN(PO(Z)),[198](S$(Z))[171]64
9070 [130]A:[142]
10000 [153]"WAIT";
10005 [129]A[178]1[164]20
10010 [153]"                  CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";
10015 [130]
10020 [142]
10800 [153]""SU$SR$"OPEN";:[142]
10900 [153]""SU$SR$LO$LP$LQ$:[142]
11000 [141]10900:[141]10800:[153]"AUF WELCHER":[141]10800
11002 [153]"STRASSE WILLST DU":[141]10800:[153]"EINE HYPOTHEK"
11004 [141]10800:[153]"ZURUECKZAHLEN ?"
11010 [141]19000:[141]10800:[153]"AUF "AT$(I):[139]FE[178]1[167]11025
11020 [139]HY(I)[178]1[175]GE(Z)[177][178].6[172]PR(I)[167]11030
11025 [141]10800:[153]"FALSCHE EINGABE!":[137]11050
11030 HY(I)[178]0:GE(Z)[178]GE(Z)[171].6[172]PR(I)
11035 KP(Z,FA(I))[178]KP(Z,FA(I))[170]1
11040 [141]10000:[141]8000:[141]7000
11050 [129]A[178]1[164]1500:[130]:[142]
12000 [141]10900:[141]10800
12005 [153]"AUF WELCHE":[141]10800:[153]"STRASSEN WILLST":[141]10800
12010 [153]"DU HAEUSER BAUEN?":[141]10800:[153]"(DIE 1. ANGEBEN)"
12015 [141]19000:[139]FE[178]1[167]12500
12020 [139]BE(I)[179][177]Z[167]12500
12025 [139]I[177]38[167]12500
12027 [139]FA(I)[179]1[176]FA(I)[177]8[167]12500
12030 R[178]I
12035 W(0)[178]0:W(1)[178]0:W(2)[178]0
12040 [129]J[178]0[164]KO(FA(R))[171]1:B(J)[178]ST(FA(R),J):B$(J)[178]SN$(ST(FA(R),J))
12045 [139]BE(B(J))[179][177]Z[167]Q[178]1
12050 [130]J
12055 [139]Q[178]1[167]Q[178]0:[137]12500
12065 [141]10900:[141]10800:[153]"WIEVIELE AUF .."
12070 [129]I[178]0[164]KO(FA(R))[171]1
12075 [141]10800:[153][200](UN$,I[170]2)""B$(I);
12080 [161]W$(I):[139]W$(I)[178]""[167]12080
12085 [139][198](W$(I))[179]48[176][198](W$(I))[177]53[167]12080
12090 [141]10800:[153][200](UN$,I[170]2)""W$(I):W(I)[178][197](W$(I))
12095 [130]I
12097 [139][182](SB(B(0))[170]W(0)[171]SB(B(1))[171]W(1))[177]1[167]12500
12100 [139]KO(FA(R))[178]3[175][182](SB(B(1))[170]W(1)[171]SB(B(2))[171]W(2))[177]1[167]12500
12105 [139]KO(FA(R))[178]3[175][182](SB(B(0))[170]W(0)[171]SB(B(2))[171]W(2))[177]1[167]12500
12110 [129]I[178]0[164]KO(FA(R))[171]1
12115 [139]SB(B(I))[170]W(I)[177]5[167]Q[178]1
12120 [130]I
12125 [139]Q[178]1[167]Q[178]0:[137]12500
12130 PY[178][181]((FA(R)[170]1)[173]2)[172]1000[172](W(0)[170]W(1)[170]W(2))
12135 [141]10800:[153]"PREIS:"PY:[141]19500
12140 [139]PJ[178]1[167][142]
12145 [129]I[178]0[164]KO(FA(R))[171]1
12150 SB(B(I))[178]SB(B(I))[170]W(I)
12155 GT[178]GT[170]W(I)
12160 [130]I
12165 GE(Z)[178]GE(Z)[171]PY:[141]7000:[141]10000:[141]8000:[129]A[178]1[164]2000:[130]:[142]
12500 [141]10800:[153]"FALSCHE EINGABE!":[129]A[178]1[164]2000:[130]:[142]
13000 [141]13900:[141]14000:[139]S2[178]1[167]13900
13005 [141]15000:[139]S2[178]1[167][141]13900
13010 [141]13100:[142]
13100 J[178]0:K[178]0:M2[178]9:KJ[178]0
13105 L(0)[178]0:L(1)[178]0
13110 [129]I[178]1[164]8
13115 [139]KP(Z,I)[178]KO(I)[167]K(J)[178]I:J[178]J[170]1:K[178]1
13120 [130]I:[139]K[178]0[167]13400
13125 [129]K[178]1[164]J
13130 [139]GE(Z)[179]GT[172]200[170][187](1)[172]5000[176]GE(Z)[179]3[172]([181]((K(J[171]1)[170]1)[173]2)[172]1000)[167]13400
13135 H[178][181](([187](1)[173]4[170].5)[172]GE(Z))
13140 M[178][181]([187](1)[172]J):[139]M[178]M2[167]M[178]M[170]1:[139]M[178]J[167]M[178]0
13145 N[178][181](H[173](([181]((K(M)[170]1)[173]2)[172]1000)))
13150 [139]N[178]0[167]13345
13155 M2[178]M
13160 [129]I[178]0[164]KO(K(M))[171]1
13165 B$(I)[178]SN$(ST(K(M),I)):B(I)[178]ST(K(M),I):[130]I
13190 Y[178]SB(B(0))[170]SB(B(1))[171](SB(B(2))[172](KO(K(M))[178]3))
13195 [139]Y[170]N[177]5[172]KO(K(M))[167]N[178]5[172]KO(K(M))[171]Y
13200 [139]N[178]0[167]13345
13210 [139]KO(K(M))[178]2[167]13250
13215 [139]SB(B(0))[178]SB(B(1))[175]SB(B(0))[178]SB(B(2))[167]13230
13220 [139]SB(B(1))[179]SB(B(2))[175]SB(B(1))[179]SB(B(0))[167]L(1)[178]1:N[178]N[171]1:[137]13230
13225 [139]SB(B(0))[178]SB(B(1))[175]SB(B(1))[179]SB(B(2))[167]L(0)[178]1:L(1)[178]1:N[178]N[171]2
13230 [139][181](N[173]3)[178]N[173]3[167]C(0)[178]N[173]3:C(1)[178]C(0):C(2)[178]C(0)
13235 [139][181]((N[170]2)[173]3)[178](N[170]2)[173]3[167]C(0)[178][181](N[173]3):C(1)[178]C(0):C(2)[178]C(0)[170]1
13240 [139][181]((N[170]1)[173]3)[178](N[170]1)[173]3[167]C(0)[178][181](N[173]3)[170]1:C(1)[178]C(0)[171]1:C(2)[178]C(0)
13245 C(0)[178]C(0)[170]L(0):C(1)[178]C(1)[170]L(1):N[178]N[170]L(0)[170]L(1):[137]13272
13250 [139]SB(B(0))[178]SB(B(1))[167]13260
13255 L(0)[178]1:N[178]N[171]1
13260 [139][181](N[173]2)[178]N[173]2[167]C(0)[178]N[173]2:C(1)[178]C(0)
13265 [139][181]((N[170]1)[173]2)[178](N[170]1)[173]2[167]C(0)[178][181](N[173]2):C(1)[178]C(0)[170]1
13270 C(0)[178]C(0)[170]L(0):N[178]N[170]L(0)
13272 [129]G[178]0[164]KO(K(M))[171]1
13273 [139]C(G)[170]SB(B(G))[177]5[167]N[178]N[171](C(G)[170]SB(B(G))[171]5):C(G)[178]5[171]SB(B(G))
13274 [130]G:[139]N[178]0[167]13345
13275 [141]10900:[141]10800:[153]""SP$(Z)" KAUFT":[141]10800
13280 [153]"HAEUSER:   AUF.."
13285 L(0)[178]0:L(1)[178]0
13290 [129]G[178]0[164]KO(K(M))[171]1
13295 [141]10800:[153][200](UN$,G[170]4)""B$(G)
13300 [141]10800:[153][200](UN$,G[170]4)""C(G)
13305 [130]G
13310 [129]I[178]0[164]KO(K(M))[171]1
13315 SB(B(I))[178]SB(B(I))[170]C(I)
13320 GT[178]GT[170]C(I)
13325 [130]I
13330 GE(Z)[178]GE(Z)[171]N[172][181]((K(M)[170]1)[173]2)[172]1000
13335 XJ[178]J:[141]7000:[141]10000:[141]8000:J[178]XJ
13340 [129]A[178]1[164]2000:[130]A
13345 [130]K
13400 [142]
13900 [141]10900
13910 [141]10800:[153]"* AKTIVITAETEN *":[142]
14000 I[178]0:S2[178]0
14010 I[178]I[170]1:[139](BE(I)[179][177]Z[176]HY(I)[178]0)[175]I[179]40[167]14010
14020 [139]I[179]40[167]14060
14030 [139]BE(40)[178]Z[175]HY(40)[178]1[167]14060
14040 [139]S2[178]1[167][141]7000:[141]10000:[141]8000
14050 [142]
14060 [139]GE(Z)[179].8[172]PR(I)[167]14040
14070 [141]10900:[141]10800:[153]""SP$(Z)" ZAHLT":[141]10800
14075 [153]"HYPOTHEK AUF "AT$(I):[141]10800:[153]""SN$(I)
14078 [141]10800:[153]"ZURUECK.
14080 GE(Z)=GE(Z)-.6*PR(I):HY(I)=0:S2=1
14085 KP(Z,FA(I))=KP(Z,FA(I))+1
14090 FORA=1TO1500:NEXT
14095 IFI=40THEN14040
14100 GOTO14010
15000 S2=0:N=0
15005 FORI=1TO8:A$="":Z4=0:Z5=0:Z6=0:Z7=0:IFN>=2THEN15090
15010 IFKP(Z,I)=KO(I)ORKP(Z,I)=0THEN15090
15015 FORJ=1TO4:IFJ=ZORZ4<>0THEN15025
15020 IFKP(J,I)>0THENZ4=J
15025 NEXTJ
15030 IFZ4=0THEN15090
15035 FORK=1TO8:IFK=IORZ5<>0THEN15045
15040 IF(KP(Z4,K)=1ORKP(Z4,K)=2ANDKO(K)=3)ANDKP(Z,K)=1THENZ5=K
15045 NEXTK
15050 IFZ5=0THEN15069
15055 M=-1
15057 M=M+1:IFBE(ST(I,M))<>Z4THEN15057
15060 Z7=ST(I,M):M=-1
15062 M=M+1:IFBE(ST(Z5,M))<>ZTHEN15062
15065 Z6=ST(Z5,M):GOSUB17500:N=N+1:S2=1:GOTO15090
15069 M=-1
15070 M=M+1:IFBE(ST(I,M))<>Z4THEN15070
15075 Z7=ST(I,M):PT=INT((PR(Z7)*(1.9+RND(1)*1.4))/100)*100
15080 IFGE(Z)<PTTHEN15090
15085 GOSUB17000:S2=1:N=N+1
15090 IFA$="J"THENGOSUB10000:GOSUB8000:GOSUB7000
15092 NEXTI
15095 IFS2=1THENFORA=1TO3000:NEXT
15097 RETURN
16000 N=0
16002 N=N+1:IFN=3THEN16500
16005 GOSUB10900:GOSUB10800:PRINT"WELCHE STRASSE":GOSUB10800
16006 PRINT"WILLST DU ?"
16010 GOSUB19000:IFFE=1THEN16500
16012 FORA=1TO800:NEXT
16015 Z7=I
16020 IFSB(I)>0THEN16500
16030 FORJ=0TOKO(FA(J))-1:B(J)=ST(FA(I),J)
16035 NEXTJ
16040 IFSB(B(1))>0THEN16500
16045 IFM=3ANDSB(B(2))>0THEN16500
16050 GOSUB10900:GOSUB10800:PRINT"VON WEM WILLST":GOSUB10800
16051 PRINT"DU "AR$(Z7):GOSUB10800:PRINT""SN$(Z7)" ?"
16055 Z4=0
16060 TM$=TI$
16065 GETA$:IFA$=""THEN16065
16066 TI$=TM$
16070 FORK=1TO4:IFK=ZTHEN16075
16072 IFA$=LEFT$(SP$(K),1)THENZ4=K
16075 NEXTK
16080 IFZ4=0ORZ4<>BE(I)THEN16500
16085 GOSUB10800:PRINT""SP$(Z4)
16088 FORA=1TO1000:NEXT
16090 GOSUB10900:GOSUB10800:PRINT"WILLST DU":GOSUB10800
16095 PRINT"KAUFEN (V) ODER":GOSUB10800:PRINT"TAUSCHEN (T) ?"
16099 TM$=TI$
16100 GETA$:IFA$<>"V"ANDA$<>"T"THEN16100
16101 TI$=TM$
16105 IFA$="T"THEN16140
16110 GOSUB10800:PRINT"ZU WELCHEM PREIS?"
16113 B$=""
16115 GOSUB10800:PRINT"DM ";
16116 GETA$:IFA$<>CHR$(20)THEN16119
16117 IFLEN(B$)>0THENPRINT"[157] [157]";:B$=LEFT$(B$,LEN(B$)-1)
16118 GOTO16116
16119 IFA$<>""ANDA$<>CHR$(13)THENIFASC(A$)<48ORASC(A$)>57THEN16116
16120 PRINTA$;:IFA$=CHR$(13)ANDLEN(B$)>0THEN16122
16121 B$=B$+A$:GOTO16116
16122 PT=VAL(B$)
16125 GOSUB17000
16130 IFA$="J"THENGOSUB10000:GOSUB8000:GOSUB7000
16135 FORA=1TO3000:NEXT:RETURN
16140 GOSUB10800:PRINT"GEGEN WELCHE ?":GOSUB19000:IFFE=1THEN16500
16145 Z6=I:J=I
16150 IFBE(J)<>ZTHEN16500
16155 FORK=0TOKO(FA(J))-1:B(K)=ST(FA(J),K)
16160 NEXTK
16165 IFSB(J)>0ORSB(B(1))>0THEN16500
16170 IFM=2ANDSB(B(2))>0THEN16500
16180 GOSUB17500:GOTO16130
16500 GOSUB10800:PRINT"FALSCHE EINGABE!":FORA=1TO1500:NEXT:GOSUB10900
16510 RETURN
17000 GOSUB10900:GOSUB10800:PRINT""SP$(Z)" WILL":GOSUB10800
17002 PRINT"VON "SP$(Z4)" "AR$(Z7)
17005 A$=""
17010 GOSUB10800:PRINT""SN$(Z7):GOSUB10800:PRINT"FUER DM"PT
17015 GOSUB10800:PRINT"(J/N)?"
17020 IFZ4>ANTHEN17100
17024 TM$=TI$
17025 GETA$:IFA$=""THEN17025
17026 TI$=TM$
17030 IFA$="J"THEN17050
17035 IFA$="N"THEN17045
17040 GOTO17024
17045 GOSUB10800:PRINT"NEIN!":RETURN
17050 IFGE(Z)<PTTHENGOSUB10800:PRINT"ZU WENIG GELD! "
17051 IFGE(Z)<PTTHENRETURN
17055 GOSUB10800:PRINT"JA!"
17060 BE(Z7)=Z
17061 IFHY(Z7)=0THENKP(Z,FA(Z7))=KP(Z,FA(Z7))+1
17063 IFHY(Z7)=0THENKP(Z4,FA(Z7))=KP(Z4,FA(Z7))-1
17065 GE(Z)=GE(Z)-PT:GE(Z4)=GE(Z4)+PT:RETURN
17100 IFKP(Z,FA(Z7))=KO(FA(Z7))-1THENA$="N"
17105 IFKP(Z4,FA(Z7))>1THENA$="N"
17110 M=0
17115 FORJ=1TO8:IFKP(Z4,J)=KO(J)THENM=M+1
17120 NEXTJ:IFM<2ANDPT<3*PR(Z7)THENA$="N"
17125 IFPT<2*PR(Z7)THENA$="N"
17130 IFPT>3*PR(Z7)ANDRND(1)<.5THENA$="N"
17132 IFGE(Z4)>3000THENA$="N"
17135 IFA$<>"N"THENA$="J"
17140 GOTO17030
17500 R=PR(Z7)-PR(Z6):A$=""
17505 IFR>0ANDGE(Z)<RTHENRETURN
17510 GOSUB10900:GOSUB10800:PRINT""SP$(Z)" WILL":GOSUB10800
17512 PRINT"VON "SP$(Z4)" "AR$(Z7):GOSUB10800
17513 IFR>=0THEN17520
17515 PRINT""SN$(Z7)" +":GOSUB10800:PRINT""ABS(R)"DM GEGEN "AR$(Z6)
17517 GOSUB10800:PRINT""SN$(Z6)
17518 GOTO17525
17520 GOSUB10800:PRINT""SN$(Z7):GOSUB10800:PRINT"GEGEN DM"ABS(R)
17522 GOSUB10800:PRINT"+ "SN$(Z6)
17525 GOSUB10800:PRINT"(J/N)?"
17530 IFZ4>ANTHEN17600
17534 TM$=TI$
17535 GETA$:IFA$=""THEN17535
17536 TI$=TM$
17540 IFA$="J"THEN17555
17545 IFA$="N"THEN17552
17550 GOTO17534
17552 GOSUB10800:PRINT"NEIN!":RETURN
17555 GOSUB10800:PRINT"JA!"
17556 IFR>0ANDGE(Z)<RTHENGOSUB10800:PRINT"ZU WENIG GELD":GOTO17575
17557 IFR<0ANDGE(Z4)<(-R)THENGOSUB10800:PRINT"ZU WENIG GELD":GOTO17575
17560 BE(Z7)=Z:BE(Z6)=Z4
17561 IFHY(Z7)=0THENKP(Z,FA(Z7))=KP(Z,FA(Z7))+1
17563 IFHY(Z7)=0THENKP(Z4,FA(Z7))=KP(Z4,FA(Z7))-1
17565 IFHY(Z6)=0THENKP(Z4,FA(Z6))=KP(Z4,FA(Z6))+1
17567 IFHY(Z6)=0THENKP(Z,FA(Z6))=KP(Z,FA(Z6))-1
17570 GE(Z)=GE(Z)-R:GE(Z4)=GE(Z4)+R
17575 RETURN
17600 IFKP(Z,FA(Z7))-KO(FA(Z7))<=KP(Z4,FA(Z6))-KO(FA(Z6))THENA$="J"
17602 IFA$<>"J"THENA$="N"
17605 IFR<0ANDGE(Z4)<ABS(R)THENA$="N"
17610 GOTO17540
18000 IFGE(Z)<Z9THEN18015
18005 IFZ>ANTHENGOSUB10000:GOSUB8000
18010 V=0:FORA=1TO1000:NEXT:RETURN
18015 Q=0
18020 FORI=1TO40
18025 IFBE(I)=ZTHENQ=1
18030 NEXTI
18035 IFQ=0THEN27000
18040 GOSUB18100:GOSUB7000:GOTO18000
18100 IFZ>ANTHEN18500
18105 GOSUB10900:GOSUB10800:PRINT"HAEUSER VERK. -> V"
18110 GOSUB10800:PRINT"HYPOTHEK AUFN.-> H"
18115 GOSUB10800:PRINT"STRASSE VERK. -> S"
18120 GOSUB10800:PRINT"SCHULD:"Z9
18124 TM$=TI$
18125 GETA$:IFA$=""THEN18125
18126 TI$=TM$
18127 IFA$="V"THEN18300
18128 IFA$="H"THEN18200
18129 IFA$<>"S"THEN18124
18130 GOSUB10900:GOSUB10800:PRINT"WELCHE STRASSE":GOSUB10800:PRINT"WILLST DU"
18135 GOSUB10800:PRINT"VERKAUFEN?"
18140 GOSUB19000:IFFE=1THEN18105
18142 IFBE(I)<>ZTHEN18400
18144 FORJ=0TO2
18146 B(J)=ST(FA(I),J)
18148 NEXTJ
18150 Q=0
18152 FORJ=0TOKO(FA(I))
18154 IFSB(B(J))>0THENQ=1
18156 NEXTJ
18160 IFQ=1THEN18400
18165 BE(I)=5
18170 GE(Z)=GE(Z)+PR(I)*(1+(.5*(HY(I)=1)))
18172 IFHY(I)=0THENKP(Z,FA(I))=KP(Z,FA(I))-1
18175 HY(I)=0:GOSUB10000:GOSUB8000:RETURN
18200 GOSUB10900:GOSUB10800:PRINT"AUF WELCHE":GOSUB10800:PRINT"STRASSE WILLST"
18205 GOSUB10800:PRINT"DU EINE HYPOTHEK":GOSUB10800:PRINT"AUFNEHMEN?"
18210 GOSUB19000:IFFE=1THEN18105
18215 IFBE(I)<>ZTHEN18400
18220 FORJ=0TOKO(FA(I))-1
18225 B(J)=ST(FA(I),J)
18230 NEXTJ
18235 Q=0
18240 FORJ=0TOKO(FA(I))-1
18245 IFSB(B(J))>0THENQ=1
18250 NEXTJ
18255 IFQ=1THEN18400
18260 IFHY(I)=1THEN18400
18265 GE(Z)=GE(Z)+.5*PR(I)
18267 KP(Z,FA(I))=KP(Z,FA(I))-1
18270 HY(I)=1:GOSUB10000:GOSUB8000:RETURN
18300 GOSUB10900:GOSUB10800:PRINT"AUF WELCHEM":GOSUB10800:PRINT"STRASSENZUG
18305 [141]10800:[153]"WILLST DU HAEUSER":[141]10800:[153]"VERKAUFEN?"
18310 [141]10800:[153]"(DIE 1. ANGEBEN)"
18315 [141]19000:[139]FE[178]1[167]18105
18325 [129]J[178]0[164]KO(FA(I))[171]1
18330 B(J)[178]ST(FA(I),J)
18332 [130]J
18335 [141]10900
18337 [129]J[178]0[164]KO(FA(I))[171]1
18340 [141]10800:[153][200](UN$,J[170]1)SN$(B(J))":"
18345 [161]A$:[139]A$[178]""[167]18345
18347 [139][198](A$)[179]48[176][198](A$)[177]53[167]18345
18350 W(J)[178][197](A$):[141]10800:[153][200](UN$,J[170]1)""W(J)
18355 C(J)[178]SB(B(J))[171]W(J)
18360 [130]J
18370 [139][182](C(0)[171]C(1))[177]1[167]18400
18372 [139]KO(FA(I))[178]3[175][182](C(0)[171]C(2))[177]1[167]18400
18374 [139]KO(FA(I))[178]3[175][182](C(1)[171]C(2))[177]1[167]18400
18376 W[178]W(0)[170]W(1)[170]W(2)
18378 [129]J[178]0[164]KO(FA(I))[171]1
18380 SB(B(J))[178]SB(B(J))[171]W(J)
18385 [130]J
18390 GE(Z)[178]GE(Z)[170]W[172]500[172][181]((FA(I)[170]1)[173]2)
18395 GT[178]GT[171]W:Z4[178]I:[141]10000:[141]8000:[137]18965
18400 [141]10900:[141]10800:[153]"DAS GEHT NICHT!"
18405 [129]A[178]1[164]1500:[130]:[137]18105
18500 Z4[178]0:O[178]1
18505 [129]B[178]1[164]10:[129]C[178]0[164]KO(B)[171]1:I[178]ST(B,C):[139]Z4[179][177]0[167]18514
18510 [139]V[177]0[167][141]18615:[137]18514
18512 [145]O[141]18525,18540,18555,18570,18585,18600,18615,18630,18645
18514 [130]C,B
18516 [139]Z4[179][177]0[167][145]Z5[137]18900,18920,18940
18518 O[178]O[170]1:[139]O[179]10[167]18505
18520 [142]
18525 [139](FA(I)[178]9[176]FA(I)[178]10)[175]BE(I)[178]Z[175]HY(I)[178]0[167]Z4[178]I:Z5[178]1
18526 [142]
18540 [139]KP(Z,FA(I))[178]1[175]BE(I)[178]Z[175]HY(I)[178]0[167]Z4[178]I:Z5[178]1
18541 [142]
18555 [139]KP(Z,FA(I))[178]2[175]KO(FA(I))[178]3[175]BE(I)[178]Z[175]HY(I)[178]0[167]Z4[178]I:Z5[178]1
18556 [142]
18570 [139](FA(I)[178]9[176]FA(I)[178]10)[175]BE(I)[178]Z[167]Z4[178]I:Z5[178]2
18571 [142]
18585 [139]KP(Z,FA(I))[178]0[175]BE(I)[178]Z[175]HY(I)[178]1[167]Z4[178]I:Z5[178]2
18586 [142]
18600 [139]KP(Z,FA(I))[178]0[175]KO(FA(I))[178]3[175]BE(I)[178]Z[175]HY(I)[178]1[167]Z4[178]I:Z5[178]2
18601 [142]
18615 [139]KP(Z,FA(I))[179]KO(FA(I))[167][142]
18616 V[178]0:[129]J[178]0[164]KO(FA(I))[171]1
18617 B(J)[178]ST(FA(I),J)
18618 V[178]V[170]SB(B(J))
18619 [130]J
18620 [139]V[178]0[167][142]
18621 M[178]0
18622 [129]J[178]0[164]KO(FA(I))[171]1
18623 [139]SB(B(J))[177]M[167]M[178]SB(B(J)):Z4[178]B(J)
18624 [130]J:Z5[178]3:[142]
18630 [139]BE(I)[178]Z[175]HY(I)[178]0[167]Z4[178]I:Z5[178]1
18631 [142]
18645 [139]BE(I)[178]Z[167]Z4[178]I:Z5[178]2
18646 [142]
18900 [141]10900:[141]10800:[153]""SP$(Z)" NIMMT":[141]10800
18902 [153]"HYPOTHEK AUF "AR$(Z4):[141]10800:[153]""SN$(Z4)"
18905 GOSUB10800:PRINT"AUF.":GOSUB10800:PRINT"SCHULD:"Z9
18910 GE(Z)=GE(Z)+.5*PR(Z4)
18913 KP(Z,FA(Z4))=KP(Z,FA(Z4))-1
18915 HY(Z4)=1:RETURN
18920 GOSUB10900:GOSUB10800:PRINT""SP$(Z):GOSUB10800
18922 PRINT"VERKAUFT "AR$(Z4):GOSUB10800
18925 PRINT""SN$(Z4)
18930 GOSUB10800:PRINT"SCHULD:"Z9
18932 GE(Z)=GE(Z)+.5*PR(Z4)
18933 IFHY(Z4)=0THENKP(Z,FA(Z4))=KP(Z,FA(Z4))-1
18935 BE(Z4)=5:HY(Z4)=0:RETURN
18940 GOSUB10900:GOSUB10800:PRINT""SP$(Z)" VERKAUFT":GOSUB10800
18942 PRINT"EIN HAUS AUF "AT$(Z4):GOSUB10800:PRINT""SN$(Z4)
18945 GOSUB10800:PRINT"SCHULD:"Z9
18950 SB(Z4)=SB(Z4)-1:V=V-1
18955 GE(Z)=GE(Z)+INT((FA(Z4)+1)/2)*500
18960 GT=GT-1
18965 RETURN
19000 FE=0
19002 GETB$:IFB$=""THEN19000
19005 GETC$:IFC$=""THEN19005
19010 GETD$:IFD$=""THEN19010
19015 A$=B$+C$+D$
19020 IFA$="SCH"THEN19100
19025 IFA$="HAU"THEN19130
19030 I=0
19035 I=I+1:IFI=41THEN19045
19040 IFLEFT$(SN$(I),3)<>A$THEN19035
19045 IFI=41THEN19300
19050 GOTO19180
19100 GETB$:IFB$=""THEN19100
19105 IFB$="L"THENI=40:GOTO19180
19110 IFB$<>"I"THEN19300
19115 I=27:GOTO19180
19130 GETB$:IFB$=""THEN19130
19135 GETB$:IFB$=""THEN19135
19140 GETB$:IFB$=""THEN19140
19145 IFB$="S"THENI=33:GOTO19180
19150 IFB$<>"B"THEN19300
19155 I=36:GOTO19180
19180 A$=SN$(I)
19190 GOSUB10800:PRINT""A$
19195 RETURN
19300 FE=1:RETURN
19500 IFGE(Z)>PYTHENPJ=0:RETURN
19510 PJ=1:GOSUB10800:PRINT""SP$(Z)" HAT NICHT":GOSUB10800
19515 PRINT"GENUG GELD."
19520 RETURN
20000 TT=VAL(LEFT$(TI$,2))*60+VAL(MID$(TI$,3,2))
20002 PRINT"[151]"TR$TU$;"     [157][157][157][157][157]"STR$(RU-TT)
20005 PRINT"[151]"FR$FU$;"      [157][157][157][157][157][157]"STR$(FP)
20010 RETURN
20500 IFPO(Z)=39THENGOTO20520
20505 GOSUB10900:GOSUB10800:PRINT""SP$(Z)" MUSS"
20510 GOSUB10800:PRINT"4000 DM ZAHLEN."
20515 BZ=4000:GOTO20550
20520 GOSUB10900:GOSUB10800:PRINT""SP$(Z)" MUSS"
20525 GOSUB10800:PRINT"2000 DM ZAHLEN."
20530 BZ=2000:GOTO20550
20550 IFBZ>GE(Z)THENZ9=BZ:GOSUB18000
20555 GE(Z)=GE(Z)-BZ:FP=FP+BZ:RETURN
21000 GOSUB22000:GW(Z)=GW(Z)+1
21010 IFWP$="PASCH"THENPG(Z)=0:GW(Z)=0:GOSUB21100:GOTO3105
21015 IFGW(Z)=3THENGW(Z)=0:PG(Z)=0:Z9=1000:GOSUB21150:GOTO21040
21020 IFFF(Z)=1THENPG(Z)=0:GW(Z)=0:FF(Z)=0:GOTO21065
21021 GOSUB10900:GOSUB10800:PRINT"WILLST DU DICH":GOSUB10800
21022 PRINT"FUER DM 1000":GOSUB10800:PRINT"FREIKAUFEN ?":GOSUB10800
21023 PRINT"(J/N)";:IFZ>ANTHEN21030
21024 TM$=TI$
21025 GETA$:IFA$<>"J"ANDA$<>"N"THEN21025
21026 TI$=TM$
21027 IFA$="J"ANDGE(Z)>=1000THENGW(Z)=3:PRINT" JA!":FORA=1TO1000:NEXT:GOTO21015
21028 PRINT" NEIN!":FORA=1TO1000:NEXT:GOTO3235
21030 IFGT>10ORGE(Z)<1000THENA$="N"
21031 IFGE(Z)>1000AND(WU=10ORWU=7)THENA$="J"
21032 IFA$="N"THENPRINT" NEIN!":FORA=1TO1000:NEXT:GOTO3235
21033 PRINT" JA!"
21035 FORA=1TO1000:NEXT:GW(Z)=3:GOTO21015
21040 IFGE(Z)<Z9THENGOSUB18000
21045 IFZ2=1THEN3235
21050 GE(Z)=GE(Z)-1000:GOTO3105
21065 GOSUB10900:GOSUB10800:PRINT"E/G-KARTE:"
21066 GOSUB10800:PRINT"DU KOMMST AUS":GOSUB10800:PRINT"DEM GEFAENGNIS"
21067 GOSUB10800:PRINT"FREI."
21070 GOTO3105
21100 GOSUB10900:GOSUB10800:PRINT"* PASCH *"
21105 GOSUB10800:PRINT"DU KOMMST AUS":GOSUB10800:PRINT"DEM GEFAENGNIS"
21110 GOSUB10800:PRINT"FREI."
21115 RETURN
21150 GOSUB10900:GOSUB10800:PRINT"DU KOMMST FUER"
21155 GOSUB10800:PRINT"1000 DM AUS DEM":GOSUB10800:PRINT"GEFAENGNIS FREI"
21160 RETURN
21999 GOTO3100
22000 GOSUB10900
22005 GOSUB10800:PRINT"* WUERFELN *"
22010 IFZ>ANOR(PG(Z)=0ANDWP$="")THEN22025
22015 GOSUB10800:PRINT"[146]RETURN"
22019 TM$=TI$
22020 GETA$:IFA$<>CHR$(13)THEN22020
22021 TI$=TM$:GOSUB10800:PRINT"      "
22025 W(1)=6:W(2)=6
22030 B(1)=INT(RND(1)*12)+13
22040 B(2)=INT(RND(1)*12)+13
22045 IFB(1)>=B(2)THENX=B(1):GOTO22050
22046 X=B(2)
22050 FORY=1TOX:FORI=1TO2
22052 IFY>B(I)THEN22056
22055 W(I)=W(I)-1:IFW(I)=0THENW(I)=6
22056 NEXTI
22057 PRINT""LEFT$(RE$,21)LEFT$(UN$,22);
22058 ONW(1)GOSUB22200,22210,22220,22230,22240,22250
22059 PRINT""LEFT$(RE$,25)LEFT$(UN$,22);
22060 ONW(2)GOSUB22200,22210,22220,22230,22240,22250
22065 NEXTY
22070 IFW(1)=W(2)THENWP$="PASCH"
22072 IFW(1)<>W(2)THENWP$=""
22075 IFWP$="PASCH"THENP=P+1:IFP=3THENPG(Z)=1:WU=11-PO(Z):IFWU<0THENWU=WU+40
22080 IFP=3THEN22100
22085 WU=W(1)+W(2)
22090 RETURN
22100 GOSUB10900:GOSUB(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)G(null)(null)(null)(null)(null)POKEREAD(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)POKE(null)(null)(null)(null)(null)LET(null)GwPOKEPRINT(null)(null)(null)PRINT(null)(null)USR(null)READ(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)PRINTX(null)(null)(null)(null)(null)(null)(null)(null)PRINT#(null)(null)PRINT#(null)(null)(null)(null)PRINT#(null)(null)(null)(null)(null)(null)(null)(null)(null)PRINT#(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)LET(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)PRINT#(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)LET(null)(null)(null)(null)READ(null)g(null)(null)(null)(null)SAVE(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)LET(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)SAVE(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)LET(null)(null)(null)(null)THEN(null)(null)(null)(null)(null)(null)SAVE(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)CHR$